home *** CD-ROM | disk | FTP | other *** search
/ Amiga Collections: Franz PD / Franz PD Disk #115 (1991-03)(Amiga User Group Deutschland e.V.).zip / Franz PD Disk #115 (1991-03)(Amiga User Group Deutschland e.V.).adf / MaxiDAT_V2.50 / MaxiSETUP (.txt) < prev    next >
AmigaBASIC Source Code  |  1989-07-03  |  4KB  |  170 lines
  1. WIDTH 70
  2. CLS
  3. COLOR 2,1
  4. PRINT " --== MaxiDAT-Preferences ==-- "
  5. COLOR 1,0
  6. PRINT
  7. PRINT 
  8. PRINT "Geben Sie bitte den Zugriffspfad zu den Daten ein !"
  9. PRINT "(Default = 'DF0:MaxiDat/Daten/')"
  10. LINE INPUT Pfad$
  11. IF Pfad$ = "" THEN
  12.   Pfad$="DF0:MaxiDat/Daten/"
  13. END IF
  14. IF MID$(Pfad$,1,1) = ":" THEN
  15.   Pfad$="DF"+Pfad$
  16. END IF
  17. IF MID$(Pfad$,4,1) <> ":" THEN
  18.   Pfad$="DF0:"+Pfad$
  19. END IF
  20. IF RIGHT$(Pfad$,1) <> "/" AND RIGHT$(Pfad$,1) <> ":" THEN
  21.   Pfad$=Pfad$+"/"
  22. END IF
  23. LOCATE 6,1
  24. COLOR 2,1
  25. PRINT Pfad$
  26. COLOR 1,0
  27. LW$=LEFT$(Pfad$,4)
  28. Pfad$=MID$(Pfad$,5)
  29. PRINT 
  30. PRINT 
  31. PRINT "Welche Diskettenlaufwerke sollen im 'LAUFWERK WECHSELN'-"
  32. PRINT "Requester erscheinen ?"
  33. PRINT "(Default = 'DF0:' 'DF1:')"
  34. LINE INPUT "1. Drive       : ",Drive1$
  35. IF Drive1$ = "" THEN
  36.   Drive1$="DF0:"
  37. END IF
  38. Drive1$=UCASE$(Drive1$)
  39. IF RIGHT$(Drive1$,1) <> ":" THEN
  40.   Drive1$=Drive1$+":"
  41. END IF
  42. LOCATE 12,18
  43. COLOR 2,1
  44. PRINT Drive1$
  45. COLOR 1,0
  46. LINE INPUT "2. Drive       : ",Drive2$
  47. IF Drive2$ = "" THEN
  48.   Drive2$="DF1:"
  49. END IF
  50. Drive2$=UCASE$(Drive2$)
  51. IF RIGHT$(Drive2$,1) <> ":" THEN
  52.   Drive2$=Drive2$+":"
  53. END IF
  54. LOCATE 13,18
  55. COLOR 2,1
  56. PRINT Drive2$
  57. COLOR 1,0
  58. PRINT 
  59. PRINT 
  60. PRINT "Bitte geben Sie die Bildschirmfarben ein. Jede Farbe besteht"
  61. PRINT "aus drei Werten (für ROT/GRÜN/BLAU-Anteil) zwischen"
  62. PRINT "0 und 1."
  63. LOCATE 19,1
  64. LINE INPUT "    #0 (Hintergrund) [0.8/0.5/0.0] : ",RGB$
  65. GOSUB WerteAuslesen:R(0)=R:G(0)=G:B(0)=B
  66. IF R(0)=-1 OR G(0)=-1 OR B(0)=-1 THEN
  67.   R(0)=0.8:G(0)=0.5:B(0)=0
  68. END IF
  69. TEST R(0):TEST G(0):TEST B(0)
  70. LOCATE 19,42
  71. COLOR 2,1
  72. PRINT R(0);G(0);B(0)
  73. COLOR 1,0
  74. LOCATE 20,1
  75. LINE INPUT "    #1               [0.9/0.9/0.9] : ",RGB$
  76. GOSUB WerteAuslesen:R(1)=R:G(1)=G:B(1)=B
  77. IF R(1)=-1 OR G(1)=-1 OR B(1)=-1 THEN
  78.   R(1)=0.9:G(1)=0.9:B(1)=0.9
  79. END IF
  80. TEST R(1):TEST G(1):TEST B(1)
  81. LOCATE 20,42
  82. COLOR 2,1
  83. PRINT R(1);G(1);B(1)
  84. COLOR 1,0
  85. LOCATE 21,1
  86. LINE INPUT "    #2               [0.0/0.0/0.0] : ",RGB$
  87. GOSUB WerteAuslesen:R(2)=R:G(2)=G:B(2)=B
  88. IF R(2)=-1 OR G(2)=-1 OR B(2)=-1 THEN
  89.   R(2)=0:G(2)=0:B(2)=0
  90. END IF
  91. TEST R(2):TEST G(2):TEST B(2)
  92. LOCATE 21,42
  93. COLOR 2,1
  94. PRINT R(2);G(2);B(2)
  95. COLOR 1,0
  96. LOCATE 22,1
  97. LINE INPUT "    #3               [1.0/1.0/0.1] : ",RGB$
  98. GOSUB WerteAuslesen:R(3)=R:G(3)=G:B(3)=B
  99. IF R(3)=-1 OR G(3)=-1 OR B(3)=-1 THEN
  100.   R(3)=1:G(3)=1:B(3)=0.1
  101. END IF
  102. TEST R(3):TEST G(3):TEST B(3)
  103. LOCATE 22,42
  104. COLOR 2,1
  105. PRINT R(3);G(3);B(3);
  106. COLOR 1,0
  107. SOUND 800,10,255
  108. PRINT :PRINT "Taste drücken ...";
  109. WHILE INKEY$="":WEND
  110. CLS
  111. PRINT "Sollen diese Einstellungen abgespeichert werden (Filename:";
  112. PRINT CHR$(34);Pfad$;"mConfig";CHR$(34);")"
  113. INPUT "[J]a, [N]ein ";Jn$
  114. Jn$=UCASE$(LEFT$(Jn$,1))
  115. IF Jn$="J" THEN
  116.   CLS
  117.   PRINT "Bitte den Pfad zum MaxiDAT-Programm eingeben !"
  118.   PRINT 
  119.   PRINT CHR$(34);"/mConfig";CHR$(34);"wird automatisch angefügt."
  120.   LINE INPUT "Filename = ",Dnam$
  121.   IF RIGHT$(Dnam$,1)<>":" AND RIGHT$(Dnam$,1)<>"/" THEN
  122.     Dnam$=Dnam$+"/mConfig"
  123.   ELSE
  124.     Dnam$=Dnam$+"mConfig"
  125.   END IF
  126.   OPEN Dnam$ FOR OUTPUT AS #1
  127.     PRINT #1,"Voreinstellungen für MaxiDAT"
  128.     PRINT #1,LW$
  129.     PRINT #1,Pfad$
  130.     PRINT #1,Drive1$
  131.     PRINT #1,Drive2$
  132.     FOR I=0 TO 3
  133.       PRINT #1,R(I)
  134.       PRINT #1,G(I)
  135.       PRINT #1,B(I)
  136.     NEXT I
  137.   CLOSE #1
  138.   PRINT 
  139.   PRINT "Voreinstellungen sind abgespeichert."
  140. ELSE
  141.   CLS
  142.   PRINT "Nichts passiert !!"
  143. END IF
  144.  
  145. END
  146.  
  147. SUB TEST (arg) STATIC
  148.   IF arg>1 THEN
  149.     arg=1
  150.   END IF
  151.   IF arg<0 THEN
  152.     arg=0
  153.   END IF
  154. END SUB
  155.  
  156. WerteAuslesen:
  157.   IF INSTR(RGB$,"/") THEN
  158.     strich=INSTR(RGB$,"/")
  159.     R=VAL(RGB$)
  160.     RGB$=MID$(RGB$,strich+1,100)
  161.     strich=INSTR(RGB$,"/")
  162.     G=VAL(RGB$)
  163.     RGB$=MID$(RGB$,strich+1,100)
  164.     B=VAL(RGB$)
  165.   ELSE
  166.     R=-1:G=-1:B=-1
  167.   END IF
  168. RETURN
  169.  
  170.